home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2 - Developers' Solutions / Delphi 2 Developers' Solutions.iso / dds / chap07 / howto02 / delphi10 / clients / clients.dfm / clients.txt
Encoding:
Text File  |  1996-04-11  |  2.3 KB  |  95 lines
  1. object ClientForm: TClientForm
  2.   Left = 221
  3.   Top = 180
  4.   Width = 478
  5.   Height = 328
  6.   Caption = 'Client List'
  7.   Font.Color = clWindowText
  8.   Font.Height = -10
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   TextHeight = 13
  13.   object ClientDBGrid: TDBGrid
  14.     Left = 7
  15.     Top = 46
  16.     Width = 450
  17.     Height = 203
  18.     DataSource = ClientDataSource
  19.     TabOrder = 0
  20.     TitleFont.Color = clWindowText
  21.     TitleFont.Height = -10
  22.     TitleFont.Name = 'MS Sans Serif'
  23.     TitleFont.Style = []
  24.   end
  25.   object ClientDataSource: TDataSource
  26.     DataSet = ClientTable
  27.     Left = 48
  28.   end
  29.   object PersonTable: TTable
  30.     Active = True
  31.     DatabaseName = 'CLIENTSDATABASE'
  32.     TableName = 'PERSON.DB'
  33.     Left = 200
  34.     object PersonTableCLIENT_ID: TIntegerField
  35.       FieldName = 'CLIENT_ID'
  36.     end
  37.     object PersonTableFIRST_NAME: TStringField
  38.       FieldName = 'FIRST_NAME'
  39.     end
  40.     object PersonTableLAST_NAME: TStringField
  41.       FieldName = 'LAST_NAME'
  42.     end
  43.   end
  44.   object CompanyTable: TTable
  45.     Active = True
  46.     DatabaseName = 'CLIENTSDATABASE'
  47.     TableName = 'COMPANY.DB'
  48.     Left = 280
  49.     object CompanyTableCLIENT_ID: TIntegerField
  50.       FieldName = 'CLIENT_ID'
  51.     end
  52.     object CompanyTableCOMPANY_NAME: TStringField
  53.       FieldName = 'COMPANY_NAME'
  54.       Size = 40
  55.     end
  56.   end
  57.   object ClientTable: TTable
  58.     Active = True
  59.     OnCalcFields = ClientTableCalcFields
  60.     DatabaseName = 'CLIENTSDATABASE'
  61.     TableName = 'CLIENT.DB'
  62.     Left = 128
  63.     object ClientTableCLIENT_ID: TIntegerField
  64.       DisplayLabel = 'ID'
  65.       DisplayWidth = 10
  66.       FieldName = 'CLIENT_ID'
  67.     end
  68.     object ClientTableCLIENT_NAME: TStringField
  69.       Calculated = True
  70.       DisplayLabel = 'Client Name'
  71.       DisplayWidth = 42
  72.       FieldName = 'CLIENT_NAME'
  73.       Size = 42
  74.     end
  75.     object ClientTableCLIENT_TYPE: TSmallintField
  76.       FieldName = 'CLIENT_TYPE'
  77.       Visible = False
  78.     end
  79.     object ClientTableFIRST_CONTACT: TDateField
  80.       FieldName = 'FIRST_CONTACT'
  81.       Visible = False
  82.     end
  83.     object ClientTableLAST_CONTACT: TDateField
  84.       FieldName = 'LAST_CONTACT'
  85.       Visible = False
  86.     end
  87.     object ClientTablePHONE_NUMBER: TStringField
  88.       DisplayLabel = 'Phone'
  89.       DisplayWidth = 15
  90.       FieldName = 'PHONE_NUMBER'
  91.       Size = 15
  92.     end
  93.   end
  94. end
  95.